home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -seriously_amiga- / programming / other / cyberxxxsrc / misc / stringlib.mod < prev    next >
Text File  |  1999-02-08  |  4KB  |  77 lines

  1. MODULE  StringLib;
  2.  
  3. (* $StackChk- $OvflChk- $RangeChk- $CaseChk- $ReturnChk- $NilChk- $TypeChk- *)
  4. (* $JOIN StringLib.o *)
  5.  
  6. IMPORT  e:=Exec,
  7.         y:=SYSTEM;
  8.  
  9. PROCEDURE isupper * {"_isupper"} (c{0}: CHAR): BOOLEAN;
  10. PROCEDURE islower * {"_islower"} (c{0}: CHAR): BOOLEAN;
  11. PROCEDURE isalnum * {"_isalnum"} (c{0}: CHAR): BOOLEAN;
  12. PROCEDURE isalpha * {"_isalpha"} (c{0}: CHAR): BOOLEAN;
  13. PROCEDURE isdigit * {"_isdigit"} (c{0}: CHAR): BOOLEAN;
  14. PROCEDURE isspace * {"_isspace"} (c{0}: CHAR): BOOLEAN;
  15. PROCEDURE toupper * {"_toupper"} (c{0}: CHAR): CHAR;
  16. PROCEDURE tolower * {"_tolower"} (c{0}: CHAR): CHAR;
  17. PROCEDURE streq   * {"_streq"}   (s1{8}: ARRAY OF CHAR;
  18.                                   s2{9}: ARRAY OF CHAR): BOOLEAN;
  19. PROCEDURE strieq  * {"_strieq"}  (s1{8}: ARRAY OF CHAR;
  20.                                   s2{9}: ARRAY OF CHAR): BOOLEAN;
  21. PROCEDURE strneq  * {"_strneq"}  (s1{8}: ARRAY OF CHAR;
  22.                                   s2{9}: ARRAY OF CHAR;
  23.                                   n{0}: LONGINT): BOOLEAN;
  24. PROCEDURE strnieq * {"_strnieq"} (s1{8}: ARRAY OF CHAR;
  25.                                   s2{9}: ARRAY OF CHAR;
  26.                                   n{0}: LONGINT): BOOLEAN;
  27. PROCEDURE strcmp  * {"_strcmp"}  (s1{8}: ARRAY OF CHAR;
  28.                                   s2{9}: ARRAY OF CHAR): LONGINT;
  29. PROCEDURE stricmp * {"_stricmp"} (s1{8}: ARRAY OF CHAR;
  30.                                   s2{9}: ARRAY OF CHAR): LONGINT;
  31. PROCEDURE strncmp * {"_strncmp"} (s1{8}: ARRAY OF CHAR;
  32.                                   s2{9}: ARRAY OF CHAR;
  33.                                   n{0}: LONGINT): LONGINT;
  34. PROCEDURE strnicmp* {"_strnicmp"}(s1{8}: ARRAY OF CHAR;
  35.                                   s2{9}: ARRAY OF CHAR;
  36.                                   n{0}: LONGINT): LONGINT;
  37. PROCEDURE strlen  * {"_strlen"}  (s{8}: ARRAY OF CHAR): LONGINT;
  38. PROCEDURE strcpy  * {"_strcpy"}  (s1{8}: ARRAY OF CHAR;
  39.                                   VAR s2{9}: ARRAY OF CHAR);
  40. PROCEDURE strncpy * {"_strncpy"} (s1{8}: ARRAY OF CHAR;
  41.                                   VAR s2{9}: ARRAY OF CHAR;
  42.                                   n{0}: LONGINT);
  43. PROCEDURE strcat  * {"_strcat"}  (s1{8}: ARRAY OF CHAR;
  44.                                   VAR s2{9}: ARRAY OF CHAR);
  45. PROCEDURE strncat * {"_strncat"} (s1{8}: ARRAY OF CHAR;
  46.                                   VAR s2{9}: ARRAY OF CHAR;
  47.                                   n{0}: LONGINT);
  48. PROCEDURE strpos  * {"_strpos"}  (s{8}: ARRAY OF CHAR;
  49.                                   c{0}: CHAR): LONGINT;
  50. PROCEDURE strrpos * {"_strrpos"} (s{8}: ARRAY OF CHAR;
  51.                                   c{0}: CHAR): LONGINT;
  52.  
  53. PROCEDURE PutChar * (); (* $EntryExitCode- *)
  54. BEGIN
  55.   y.INLINE(016C0U,04E75U);
  56. END PutChar;
  57.  
  58.  
  59. (* /// ------------------------- "PROCEDURE sprintf()" ------------------------- *)
  60. PROCEDURE sprintf * {"StringLib.sprintfA"} (VAR buffer{11}: ARRAY OF CHAR;
  61.                                             fmt{8}: ARRAY OF CHAR;
  62.                                             data{9}..: e.APTR);
  63.  
  64. PROCEDURE sprintfP * {"StringLib.sprintfA"} (buffer{11}: e.LSTRPTR;
  65.                                              fmt{8}: ARRAY OF CHAR;
  66.                                              data{9}..: e.APTR);
  67.  
  68. PROCEDURE sprintfA * (buffer{11}: e.LSTRPTR;
  69.                       fmt{8}: e.LSTRPTR;
  70.                       data{9}: e.APTR);
  71. BEGIN
  72.   e.OldRawDoFmt(fmt^,data,PutChar,buffer);
  73. END sprintfA;
  74. (* \\\ ------------------------------------------------------------------------- *)
  75.  
  76. END StringLib.
  77.